home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / scr_one.spr < prev    next >
Encoding:
Text File  |  1994-07-05  |  10.3 KB  |  316 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/05/94             SCR_ONE.SPR               16:52:45 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("firstscr") ;
  45.     OR UPPER(WTITLE("FIRSTSCR")) == "FIRSTSCR.PJX" ;
  46.     OR UPPER(WTITLE("FIRSTSCR")) == "FIRSTSCR.SCX" ;
  47.     OR UPPER(WTITLE("FIRSTSCR")) == "FIRSTSCR.MNX" ;
  48.     OR UPPER(WTITLE("FIRSTSCR")) == "FIRSTSCR.PRG" ;
  49.     OR UPPER(WTITLE("FIRSTSCR")) == "FIRSTSCR.FRX" ;
  50.     OR UPPER(WTITLE("FIRSTSCR")) == "FIRSTSCR.QPR"
  51.     DEFINE WINDOW firstscr ;
  52.         AT 0.000, 0.000 ;
  53.         SIZE 22.000,98.400 ;
  54.         FONT "MS Sans Serif", 8 ;
  55.         FLOAT ;
  56.         NOCLOSE ;
  57.         MINIMIZE ;
  58.         SYSTEM
  59. ENDIF
  60.  
  61. IF NOT WEXIST("thirdscr") ;
  62.     OR UPPER(WTITLE("THIRDSCR")) == "THIRDSCR.PJX" ;
  63.     OR UPPER(WTITLE("THIRDSCR")) == "THIRDSCR.SCX" ;
  64.     OR UPPER(WTITLE("THIRDSCR")) == "THIRDSCR.MNX" ;
  65.     OR UPPER(WTITLE("THIRDSCR")) == "THIRDSCR.PRG" ;
  66.     OR UPPER(WTITLE("THIRDSCR")) == "THIRDSCR.FRX" ;
  67.     OR UPPER(WTITLE("THIRDSCR")) == "THIRDSCR.QPR"
  68.     DEFINE WINDOW thirdscr ;
  69.         AT 0.000, 0.000 ;
  70.         SIZE 22.000,98.400 ;
  71.         FONT "MS Sans Serif", 8 ;
  72.         FLOAT ;
  73.         NOCLOSE ;
  74.         MINIMIZE ;
  75.         SYSTEM
  76. ENDIF
  77.  
  78. IF NOT WEXIST("secondscr") ;
  79.     OR UPPER(WTITLE("SECONDSCR")) == "SECONDSCR.PJX" ;
  80.     OR UPPER(WTITLE("SECONDSCR")) == "SECONDSCR.SCX" ;
  81.     OR UPPER(WTITLE("SECONDSCR")) == "SECONDSCR.MNX" ;
  82.     OR UPPER(WTITLE("SECONDSCR")) == "SECONDSCR.PRG" ;
  83.     OR UPPER(WTITLE("SECONDSCR")) == "SECONDSCR.FRX" ;
  84.     OR UPPER(WTITLE("SECONDSCR")) == "SECONDSCR.QPR"
  85.     DEFINE WINDOW secondscr ;
  86.         AT 0.000, 0.000 ;
  87.         SIZE 22.000,98.400 ;
  88.         FONT "MS Sans Serif", 8 ;
  89.         FLOAT ;
  90.         NOCLOSE ;
  91.         MINIMIZE ;
  92.         SYSTEM
  93. ENDIF
  94.  
  95.  
  96. *       *********************************************************
  97. *       *                                                         
  98. *       *         SCR_ONE/Windows Setup Code - SECTION 2          
  99. *       *                                                         
  100. *       *********************************************************
  101. *
  102.  
  103. #REGION 1
  104. abc = .F.
  105.  
  106. *       *********************************************************
  107. *       *                                                         
  108. *       *              SCR_ONE/Windows Screen Layout              
  109. *       *                                                         
  110. *       *********************************************************
  111. *
  112.  
  113. #REGION 1
  114. IF WVISIBLE("firstscr")
  115.     ACTIVATE WINDOW firstscr SAME
  116. ELSE
  117.     ACTIVATE WINDOW firstscr NOSHOW
  118. ENDIF
  119. @ 3.692,14.400 GET m.scr1 ;
  120.     PICTURE "@*HN SCREEN2;SCREEN3" ;
  121.     SIZE 1.769,11.667,0.667 ;
  122.     DEFAULT 1 ;
  123.     FONT "MS Sans Serif", 8 ;
  124.     STYLE "B" ;
  125.     VALID _qrg106gom()
  126.  
  127.  
  128.  
  129.  
  130. *       *********************************************************
  131. *       *                                                         
  132. *       *             SCR_THRE/Windows Screen Layout              
  133. *       *                                                         
  134. *       *********************************************************
  135. *
  136.  
  137. #REGION 2
  138. IF WVISIBLE("thirdscr")
  139.     ACTIVATE WINDOW thirdscr SAME
  140. ELSE
  141.     ACTIVATE WINDOW thirdscr NOSHOW
  142. ENDIF
  143. @ 6.462,19.200 GET m.scr3 ;
  144.     PICTURE "@*VN SCREEN1;SCREEN2" ;
  145.     SIZE 1.769,11.667,0.308 ;
  146.     DEFAULT 1 ;
  147.     FONT "MS Sans Serif", 8 ;
  148.     STYLE "B" ;
  149.     VALID _qrg106h1i()
  150.  
  151.  
  152.  
  153.  
  154. *       *********************************************************
  155. *       *                                                         
  156. *       *              SCR_TWO/Windows Screen Layout              
  157. *       *                                                         
  158. *       *********************************************************
  159. *
  160.  
  161. #REGION 3
  162. IF WVISIBLE("secondscr")
  163.     ACTIVATE WINDOW secondscr SAME
  164. ELSE
  165.     ACTIVATE WINDOW secondscr NOSHOW
  166. ENDIF
  167. @ 5.538,19.200 GET m.scr2 ;
  168.     PICTURE "@*VN SCREEN1;SCREEN3" ;
  169.     SIZE 1.769,11.667,0.308 ;
  170.     DEFAULT 1 ;
  171.     FONT "MS Sans Serif", 8 ;
  172.     STYLE "B" ;
  173.     VALID _qrg106hck()
  174.  
  175. IF NOT WVISIBLE("secondscr")
  176.     ACTIVATE WINDOW secondscr
  177. ENDIF
  178. IF NOT WVISIBLE("thirdscr")
  179.     ACTIVATE WINDOW thirdscr
  180. ENDIF
  181. IF NOT WVISIBLE("firstscr")
  182.     ACTIVATE WINDOW firstscr
  183. ENDIF
  184.  
  185.  
  186. READ CYCLE ;
  187.     ACTIVATE _qrg106gy0()
  188.  
  189. RELEASE WINDOW firstscr
  190. RELEASE WINDOW secondscr
  191. RELEASE WINDOW thirdscr
  192. SELECT (m.currarea)
  193.  
  194.  
  195. #REGION 0
  196.  
  197. SET READBORDER &rborder
  198.  
  199. IF m.talkstat = "ON"
  200.     SET TALK ON
  201. ENDIF
  202. IF m.compstat = "ON"
  203.     SET COMPATIBLE ON
  204. ENDIF
  205.  
  206.  
  207. *       *********************************************************
  208. *       *                                                         
  209. *       * _QRG106GOM           m.scr1 VALID                       
  210. *       *                                                         
  211. *       * Function Origin:                                        
  212. *       *                                                         
  213. *       * From Platform:       Windows                            
  214. *       * From Screen:         SCR_ONE,     Record Number:    2   
  215. *       * Variable:            m.scr1                             
  216. *       * Called By:           VALID Clause                       
  217. *       * Object Type:         Push Button                        
  218. *       * Snippet Number:      1                                  
  219. *       *                                                         
  220. *       *********************************************************
  221. *
  222. FUNCTION _qrg106gom     &&  m.scr1 VALID
  223. #REGION 1
  224. DO CASE
  225.     CASE M.scr1 = 1
  226.         _CUROBJ=OBJNUM(m.scr2)
  227.     CASE M.scr1 = 2
  228.         _CUROBJ=OBJNUM(m.scr3)
  229. ENDCASE
  230. abc = .T.
  231.  
  232. *       *********************************************************
  233. *       *                                                         
  234. *       * _QRG106H1I           m.scr3 VALID                       
  235. *       *                                                         
  236. *       * Function Origin:                                        
  237. *       *                                                         
  238. *       * From Platform:       Windows                            
  239. *       * From Screen:         SCR_THRE,     Record Number:    2  
  240. *       * Variable:            m.scr3                             
  241. *       * Called By:           VALID Clause                       
  242. *       * Object Type:         Push Button                        
  243. *       * Snippet Number:      2                                  
  244. *       *                                                         
  245. *       *********************************************************
  246. *
  247. FUNCTION _qrg106h1i     &&  m.scr3 VALID
  248. #REGION 2
  249. DO CASE
  250.     CASE m.scr3 = 1
  251.         _CUROBJ=OBJNUM(m.scr1)
  252.     CASE M.scr3 = 2
  253.         _CUROBJ=OBJNUM(m.scr2)
  254. ENDCASE
  255.  
  256. *       *********************************************************
  257. *       *                                                         
  258. *       * _QRG106HCK           m.scr2 VALID                       
  259. *       *                                                         
  260. *       * Function Origin:                                        
  261. *       *                                                         
  262. *       * From Platform:       Windows                            
  263. *       * From Screen:         SCR_TWO,     Record Number:    2   
  264. *       * Variable:            m.scr2                             
  265. *       * Called By:           VALID Clause                       
  266. *       * Object Type:         Push Button                        
  267. *       * Snippet Number:      3                                  
  268. *       *                                                         
  269. *       *********************************************************
  270. *
  271. FUNCTION _qrg106hck     &&  m.scr2 VALID
  272. #REGION 3
  273. DO CASE
  274.     CASE m.scr2 = 1
  275.         _CUROBJ=OBJNUM(m.scr1)
  276.     CASE m.scr2 = 2
  277.         _CUROBJ=OBJNUM(m.scr3)
  278. ENDCASE
  279.  
  280. *       *********************************************************
  281. *       *                                                         
  282. *       * _QRG106GY0           Read Level Activate                
  283. *       *                                                         
  284. *       * Function Origin:                                        
  285. *       *                                                         
  286. *       *                                                         
  287. *       * From Platform:       Windows                            
  288. *       * From Screen:         Multiple Screens                   
  289. *       * Called By:           READ Statement                     
  290. *       * Snippet Number:      4                                  
  291. *       *                                                         
  292. *       *********************************************************
  293. *
  294. FUNCTION _qrg106gy0     && Read Level Activate
  295. *
  296. * Activate Code from screen: SCR_ONE
  297. *
  298. #REGION 1
  299. HIDE WINDOW secondscr
  300. HIDE WINDOW thirdscr
  301. *
  302. * Activate Code from screen: SCR_THRE
  303. *
  304. #REGION 2
  305. IF abc = .T.
  306.     HIDE WINDOW firstscr
  307. ENDIF
  308. HIDE WINDOW secondscr
  309. *
  310. * Activate Code from screen: SCR_TWO
  311. *
  312. #REGION 3
  313. IF abc = .T.
  314.     HIDE WINDOW firstscr
  315. ENDIF
  316. HIDE WINDOW thirdscr